home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Test / man.lsp < prev    next >
Text File  |  1990-10-11  |  1KB  |  36 lines
  1. (setf w (send graph-window-proto :new))
  2.  
  3. (send w :frame-rect 170 100  60  50)
  4. (send w :frame-rect 185 115   5   5)
  5. (send w :frame-rect 210 115   5   5)
  6. (send w :frame-rect 198 120   5  15)
  7. (send w :frame-rect 185 140  30   3)
  8. (send w :frame-rect 165 120   5  10)
  9. (send w :frame-rect 165 120   5  10)
  10. (send w :frame-rect 230 120   5  10)
  11. (send w :frame-rect 190 150  20  10)
  12. (send w :frame-rect 120 160 160 120)
  13. (send w :frame-rect  80 160  40  30)
  14. (send w :frame-rect  60 140  20  50)
  15. (send w :frame-rect  58 130  25  10)
  16. (send w :frame-rect  58 125   6   5)
  17. (send w :frame-rect  64 120   6  10)
  18. (send w :frame-rect  70 115   6  15)
  19. (send w :frame-rect  76 120   6  10)
  20. (send w :frame-rect  83 130   5   4)
  21. (send w :frame-rect 280 160  40  30)
  22. (send w :frame-rect 320 160  20  50)
  23. (send w :frame-rect 318 210  25  10)
  24. (send w :frame-rect 313 215   5   5)
  25. (send w :frame-rect 337 220   6   5)
  26. (send w :frame-rect 331 220   6   7)
  27. (send w :frame-rect 325 220   6  10)
  28. (send w :frame-rect 319 220   6   7)
  29. (send w :frame-rect 120 280  50  40)
  30. (send w :frame-rect 230 280  50  40)
  31. (send w :frame-rect 120 320  50  20)
  32. (send w :frame-rect 230 320  50  20)
  33. (send w :frame-rect 115 340  60  10)
  34. (send w :frame-rect 225 340  60  10)
  35. (send w :draw-string "Not a self portrait." 125 375)
  36.